unit workNode;

interface

type
  baseClassData = class(TObject)
  private
    { Private declarations }
    {defaultName, }Name, instancingMethod, imStringData: String ;
    passName : String;
    iterations : Integer;

    dataType : Integer;

  public
    (**
        The interface functions (Setters and Getters)
    *)
    procedure set_Name(wnNam : String);
    procedure set_instancingMethod(instanceMeth : String);
    procedure set_imStringData(imStringDat : String);
    //procedure set_defaultName(defNam : String);
    procedure set_passName(passnam : String);
    procedure set_iterations(itr : Integer);
    procedure set_dataType(dType : Integer);

    function get_Name():String;
    function get_instancingMethod():String;
    function get_imStringData():String;
    //function get_defaultName():String;
    function get_passName():String;
    function get_iterations():Integer;
    function get_dataType():Integer;


    // The constructor
    Constructor Create(wnNam, instanceMeth, imStringdat, passNam : string; itr, dType : Integer); overload;
  end;

implementation

procedure baseClassData.set_Name(wnNam : String);
begin
        Name := wnNam;
end;

procedure baseClassData.set_instancingMethod(instanceMeth : String);
begin
        instancingMethod := instanceMeth;
end;

procedure baseClassData.set_imStringData(imStringDat : String);
begin
        imStringData := imStringDat;
end;

(**procedure baseClassData.set_defaultName(defNam : String);
begin
        defaultName := defNam;
end;*)

procedure baseClassData.set_passName(passnam : String);
begin
        passName := passnam;
end;

procedure baseClassData.set_iterations(itr : Integer);
begin
        iterations := itr;
end;

procedure baseClassData.set_dataType(dType : Integer);
begin
  dataType := dType;
end;


function baseClassData.get_Name():String;
begin
        Result := Name;
end;

function baseClassData.get_instancingMethod():String;
begin
        Result := instancingMethod;
end;

function baseClassData.get_imStringData():String;
begin
        Result := imStringData;
end;

(**function baseClassData.get_defaultName():String;
begin
        Result := defaultName;
end;*)

function baseClassData.get_passName():String;
begin
        Result := passName;
end;

function baseClassData.get_iterations():Integer;
begin
        Result := iterations;
end;

function baseClassData.get_dataType():Integer;
begin
        result := dataType;
end;

Constructor baseClassData.Create(wnNam, instanceMeth, imStringdat, passNam : string; itr, dType : Integer);
begin
        set_Name(wnNam);
        set_instancingMethod(instanceMeth);
        set_imStringData(imStringdat);
        set_passName(passNam);
        set_iterations(itr);
        set_dataType(dType);
end;



end.
